Public Class frmPROMOTION

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub frmPROMOTION_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        'Try
        '    GC.Collect()
        '    Me.Dispose()
        'Catch ex As Exception

        'End Try
    End Sub

  
    Private Sub frmPROMOTION_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        PublicFunction.NewFormLoad(Me)
        Me.GridPromotion.RootTable.Columns("QUANTITY").FormatString = PublicVariable.NumberFormatString
        Me.GridPromotion.RootTable.Columns("ORG_PRICE").FormatString = PublicVariable.NumberFormatString
        Me.GridPromotion.RootTable.Columns("NEW_PRICE").FormatString = PublicVariable.NumberFormatString
        Me.GridPromotion.RootTable.Columns("DISCOUNT").FormatString = PublicVariable.NumberFormatString
    End Sub
End Class